home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mcdsk340 / _mdimdsk.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-15  |  4.9 KB  |  154 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm mdiMCDSK 
  3.    AutoShowChildren=   0   'False
  4.    BackColor       =   &H00808080&
  5.    Caption         =   "MCDISK 32-Bit DEMO"
  6.    ClientHeight    =   7335
  7.    ClientLeft      =   705
  8.    ClientTop       =   1245
  9.    ClientWidth     =   10410
  10.    Height          =   8025
  11.    Icon            =   "_MdiMDSK.frx":0000
  12.    Left            =   645
  13.    Top             =   615
  14.    Width           =   10530
  15.    Begin Threed.SSPanel SSPanel1 
  16.       Align           =   1  'Align Top
  17.       Height          =   465
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   10410
  22.       _Version        =   65536
  23.       _ExtentX        =   18362
  24.       _ExtentY        =   820
  25.       _StockProps     =   15
  26.       BackColor       =   12632256
  27.       Begin VB.PictureBox Picture1 
  28.          AutoSize        =   -1  'True
  29.          Height          =   300
  30.          Left            =   11550
  31.          Picture         =   "_MdiMDSK.frx":030A
  32.          ScaleHeight     =   240
  33.          ScaleWidth      =   240
  34.          TabIndex        =   6
  35.          Top             =   75
  36.          Visible         =   0   'False
  37.          Width           =   300
  38.       End
  39.       Begin VB.ComboBox cmb_Group 
  40.          Height          =   315
  41.          Left            =   2250
  42.          TabIndex        =   2
  43.          Top             =   90
  44.          Width           =   4695
  45.       End
  46.       Begin VB.Label Label1 
  47.          Caption         =   "&Select a group of functions"
  48.          Height          =   255
  49.          Left            =   90
  50.          TabIndex        =   1
  51.          Top             =   120
  52.          Width           =   2085
  53.       End
  54.    End
  55.    Begin Threed.SSPanel SSPanel2 
  56.       Align           =   2  'Align Bottom
  57.       Height          =   420
  58.       Left            =   0
  59.       TabIndex        =   3
  60.       Top             =   6915
  61.       Width           =   10410
  62.       _Version        =   65536
  63.       _ExtentX        =   18362
  64.       _ExtentY        =   741
  65.       _StockProps     =   15
  66.       BackColor       =   12632256
  67.       Begin Threed.SSPanel pnl_Timer 
  68.          Height          =   240
  69.          Left            =   2970
  70.          TabIndex        =   5
  71.          Top             =   90
  72.          Width           =   825
  73.          _Version        =   65536
  74.          _ExtentX        =   1455
  75.          _ExtentY        =   423
  76.          _StockProps     =   15
  77.          BackColor       =   12632256
  78.       End
  79.       Begin Threed.SSPanel pnl_Version 
  80.          Height          =   240
  81.          Left            =   11340
  82.          TabIndex        =   8
  83.          Top             =   90
  84.          Width           =   510
  85.          _Version        =   65536
  86.          _ExtentX        =   900
  87.          _ExtentY        =   423
  88.          _StockProps     =   15
  89.          BackColor       =   12632256
  90.       End
  91.       Begin VB.Label Label4 
  92.          AutoSize        =   -1  'True
  93.          Height          =   195
  94.          Left            =   4935
  95.          TabIndex        =   9
  96.          Top             =   105
  97.          Width           =   45
  98.       End
  99.       Begin VB.Label Label3 
  100.          Alignment       =   1  'Right Justify
  101.          Caption         =   "MCDSK-32 version"
  102.          Height          =   225
  103.          Left            =   9765
  104.          TabIndex        =   7
  105.          Tag             =   "elapsed time for ~ iterations (in ms)"
  106.          Top             =   105
  107.          Width           =   1440
  108.       End
  109.       Begin VB.Label Label2 
  110.          Caption         =   "elapsed time for ? iterations (in ms)"
  111.          Height          =   225
  112.          Left            =   90
  113.          TabIndex        =   4
  114.          Tag             =   "elapsed time for ~ iterations (in ms)"
  115.          Top             =   90
  116.          Width           =   2805
  117.       End
  118.    End
  119.    Begin VB.Menu mnu_Exit 
  120.       Caption         =   "E&xit"
  121.    End
  122. Attribute VB_Name = "mdiMCDSK"
  123. Attribute VB_Creatable = False
  124. Attribute VB_Exposed = False
  125. Option Explicit
  126. Dim IsLoaded         As Integer
  127. Private Sub cmb_Group_Click()
  128.    Dim Frm        As Form
  129.    Select Case cmb_Group.ListIndex
  130.       Case 0:  Set Frm = frmFile
  131.    End Select
  132.    Load Frm
  133. End Sub
  134. Private Sub MDIForm_Load()
  135.    Dim intResult     As Integer
  136.    Me.WindowState = 2
  137.    IsLoaded = False
  138.    pnl_Version = Format(cGetVersion(), "#.00")
  139.    Call sub_Check_Project
  140.    Call sub_Initialization
  141.    Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")
  142.    Label4.Caption = "Register MC-DISK"
  143.    IsLoaded = True
  144. End Sub
  145. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  146.    MsgBox "Thank you for registering MCDSK-32.DLL", , "MCDSK-32.DLL demo"
  147. End Sub
  148. Private Sub MDIForm_Resize()
  149.    If (Me.WindowState = 0) Then Me.WindowState = 2
  150. End Sub
  151. Private Sub mnu_Exit_Click()
  152.    Unload Me
  153. End Sub
  154.